home *** CD-ROM | disk | FTP | other *** search
/ European High School Girl / European High School Girl.iso / pc / prg / katja.dxr / 00092.ls < prev    next >
Encoding:
Text File  |  1996-03-08  |  449 b   |  24 lines
  1. on mouseDown
  2.   global autoflg, framecnt, max
  3.   set the ink of sprite 22 to 4
  4.   updateStage()
  5.   repeat while the stillDown
  6.     nothing()
  7.   end repeat
  8.   set the ink of sprite 22 to 8
  9.   updateStage()
  10.   if autoflg = 1 then
  11.     set autoflg to 0
  12.     set the timeoutScript to EMPTY
  13.   end if
  14.   set framecnt to 1 + framecnt
  15.   if framecnt > max then
  16.     set framecnt to 1
  17.   end if
  18.   if the colorDepth <= 8 then
  19.     go("S08")
  20.   else
  21.     go("S16")
  22.   end if
  23. end
  24.